!     ******************************************************************
!     *                                                                *
!     *   FLOW SOLUTION MODULE                                         *
!     *                                                                *
!     ******************************************************************

!     ******************************************************************
!     *                                                                *
!     *   COPYRIGHT (C) ANTONY JAMESON 1988                            *
!     *                                                                *
!     ******************************************************************

!     NAME=SETUP
      SUBROUTINE SETUP

!     ******************************************************************
!     *                                                                *
!     *   SETS UP THE METRIC AND INITIAL DATA                          *
!     *                                                                *
!     ******************************************************************

      USE CARBUNCLE
      IMPLICIT NONE

!      COMMON/MGR/ KODE,MODE,FCOLL,FADD,FBC  ! MOVED TO MODULE CARBUNCLE

!     ******************************************************************

!     CALCULATE THE CELL AREAS

      CALL METRIC

!     DEFINE THE INITIAL DATA

      IF (MODE.LT.0) CALL INIT

!     UPDATE THE SURFACE PRESSURE

      CALL BCWALL
      RETURN
      END SUBROUTINE SETUP

